﻿Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Collections
Imports System.Drawing

Public Class Shape

    Dim vertices As New ArrayList
    Private v_boundary As Color
    Private v_inside As Color

    Public Sub insert(v As Vertex)
        vertices.Add(v)
    End Sub

    Public Function Getvert() As ArrayList

        Return vertices
    End Function

    Public Function GetCount() As Integer
        Return vertices.Count
    End Function

    Public Sub Addvert(v As Vertex)
        vertices.Add(v)
    End Sub

    Public Property Boundary() As Color
        Get
            Return v_boundary
        End Get

        Set(value As Color)
            v_boundary = value
        End Set
    End Property

    Public Property Inside() As Color
        Get
            Return v_inside
        End Get

        Set(value As Color)
            v_inside = value
        End Set
    End Property


End Class
